home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 1
/
LIGHT-ROM 1 (Amiga Library Services)(1994).iso
/
ffdisks
/
d880.lha
/
Oberon
/
O3Demo2.lzh
/
Definitions
/
io.def
< prev
next >
Wrap
Text File
|
1993-01-15
|
836b
|
33 lines
DEFINITION io;
IMPORT
d := Dos,
e := Exec;
VAR
out, in : d.FileHandlePtr;
Me : d.ProcessPtr;
closeDelay : LONGINT;
PROCEDURE Write(ch: CHAR);
PROCEDURE WriteLn;
PROCEDURE WriteString(string: ARRAY OF CHAR);
PROCEDURE Tab(n: INTEGER);
PROCEDURE Clear();
PROCEDURE Format(str: ARRAY OF CHAR; data: e.APTR);
PROCEDURE WriteInt(x: LONGINT; n: INTEGER);
PROCEDURE WriteHex(x: LONGINT; n: INTEGER);
PROCEDURE Read(VAR ch: CHAR);
PROCEDURE ReadString(VAR str: ARRAY OF CHAR);
PROCEDURE ReadInt(VAR x: LONGINT): BOOLEAN;
PROCEDURE ReadInteger(VAR x: INTEGER): BOOLEAN;
PROCEDURE ReadShortInt(VAR x: SHORTINT): BOOLEAN;
PROCEDURE ReadHex(VAR x: LONGINT): BOOLEAN;
PROCEDURE ReadIntOk(VAR x: LONGINT);
PROCEDURE ReadIntegerOk(VAR x: INTEGER);
PROCEDURE ReadShortIntOk(VAR x: SHORTINT);
PROCEDURE ReadHexOk(VAR x: LONGINT);
END io.